Libris Britannia 4/science library(b).zip/science library(b)/PROGRAMM/DB_CLIPP/1159.ZIP/REPINST.FMT

Text File | 1986-07-23 | 637b | 26 lines

@ 1,19 SAY 'RECORD ADDING PROCEDURE'
@ 2,31 SAY RECNO()
@ 2,19 SAY 'Now adding record'
@ 4,0 SAY INSTNAME
@ 4,24 GET INST_TYPE
@ 5,0 SAY 'Command line:'
@ 5,14 GET COMLINE
@ 6,0 SAY 'Category, subcategories'
@ 6,24 GET SUBCATID
@ 8,0 SAY SERIALNUM
@ 8,24 GET SERIAL_NO
@ 10,0 SAY TVANUMBER
@ 10,24 GET TVA_NO
@ 12,0 SAY CALIBDATE
@ 12,24 GET CALIB_DATE
@ 14,0 SAY DUEDATE
@ 14,24 GET CAL_DUE_DT
@ 16,0 SAY CALINTERVL
@ 16,28 SAY 'months'
@ 16,24 GET CALIB_INT
@ 18,0 SAY LOCATNAME
@ 18,24 GET LOCATION
@ 20,0 SAY REMARKNM
@ 21,0 GET REMARK
@ 23,0 SAY 'Press "Ctrl-End" when you are finished adding information.'